﻿beerisk                package:unknown                R Documentation

 Calcula o Risco de agrotóxicos para abelhas 

Description:

     Retorna um data frame com as estimativas de exposição e quociente de risco oral e de contato para abelhas a partir dos dados de toxicidade e dose do produto 

Usage:

      beerisk (data,type,age="adult", pollen=0, nectar=0) 

Arguments:

data		Data frame com seis colunas contendo: nomes das substâncias, doses de aplicação (kg substância ativa/ha), toxicidade oral (µ substância ativa/abelha), toxicidade por 
		contato (µ substância ativa/abelha), log kow e Koc, necessariamente nessa ordem. O log Pow e Koc são necessários apenas quando há aplicação no solo.


type		Vetor com os tipos de aplicação de cada substância. Tipo de aplicação pode ser "soil" para aplicações no solo, "foliar" para aplicações foliares e "seed" para tratamentos 
		de sementes.


age		Define o estágio de vida das abelhas para o qual se deseja estimar o risco. O argumento deve ser "adult" para abelhas adultas (default) e "larvae" para larvas.


pollen		Para os casos em que há dados empíricos de resíduo no pólen de culturas agrícolas, esse argumento informa o valor da concentração no pólen (mg substância ativa/kg de pólen) 
		para refinamento das estimatimas de exposição.


nectar		Para os casos em que há dados empíricos de resíduo no néctar de culturas agrícolas, esse argumento informa o valor da concentração no pólen (mg substância ativa/kg de néctar)
		para refinamento das estimatimas de exposição.





Details:

	A função beerisk é baseada no modelo da agência de proteção ambiental dos EUA (USEPA) BeeRex 1.0 [3], mas permite que o cálculo seja realizado com diversos compostos ao mesmo tempo. 
	Quando a escolha for por aplicação em sementes ou no solo o risco por contato direto não ocorre,pois as abelhas não serão expostas por essa via. Por isso, a função retorna a mensagem 
	"não se aplica" para a exposição e risco por contato nesses casos. O mesmo ocorre com a escolha pelo argumento age="larvae", pois larvas são expostas pelo aplicação direta do produto, 
	já que se mantém dentro das colonias.

	A exposição oral é uma estimativa da concentração em néctar e pólen combinados com dados de consumo diário desses itens alimentares por abelhas adultas e larvas. Para cálculo da concentração 
	no néctar e pólen quando não há dados empíricos de pólen e néctar [3]:

	- aplicações em tratamento de semente (type="seed"): resíduo máximo de 1ppm determinado empiricamente para diversos compostos em partes vegetais, em geral [2].
	- aplicações no solo: modelo de Briggs. Esse modelo requer os dados de Koc e Logkow do produto, por isso esses inputs no argumento data são necessários apenas apra aplicação no solo.
	- aplicações foliares:  90 percentil do modelo de Kenaga de acordo com a dose de aplicação do produto 
	
	A exposição por contato é estimada pela concentração estimada em Koch and Weisser (1997) de acordo com a dose de aplicação do produto [3].

	Após o cálculo da exposição (concentração ambiental estimada) os valores são divididos pelo NOED do produto (dose sem efeito observado) para gerar o quociente de risco (RQ).


Value:

	Retorna um data frame contendo as seguintes colunas: 
 
  		data[,1] : nomes dos produtos conforme informado na primeira coluna do argumento data
  
  		expos.oral : estimativa de exposição oral

  		expos.contato : estimativa de exposição por contato
  
  		RQoral : Quociente de risco oral 
		
  		RQcontato: Quociente de risco por contato


Warning:

	É necessário que o argumento type inclua um tipo de aplicação para todos os compostos contidos no argumento data. Se essa informação não estiver presente a função para e avisa o usuário que
	deve-se completar os inputs da função.


Author(s):

	Camila Camata (camila.camata.santos@usp.br)


References:

	[1] http://www.ibama.gov.br/noticias/422-2017/1012-ibama-aumenta-protecao-a-abelhas-com-nova-norma-sobre-avaliacao-de-agrotoxicos

	[2] http://onlinelibrary.wiley.com/doi/10.1111/j.1365-2338.2010.02419.x/full

	[3] https://www.epa.gov/sites/production/files/2014-06/documents/pollinator_risk_assessment_guidance_06_19_14.pdf


Examples:

#Criar data frame chamado teste com os dados de input:
produto= c("composto1","composto2","composto3","composto4","composto5") #nomes dos produtos
dose = c(0.01,0.2,0.125,0.032,0.045) #doses de aplicação (kg substância ativa/ha)
tox.oral=c(1.2,0.03,0.4,0.3,100) #dados de toxicidade oral (µ substância ativa/abelha)
tox.contato= c(2,0.1,0.2,0.09,100) #dados de toxicidade por contato (µ substância ativa/abelha)
logkow=c(0.1,0.3,0.2,-0.15,-0.3) #logkow de cada produto
koc= c(10,30,72,31,16) #koc de cada produto
teste=data.frame(produto,dose,tox.oral,tox.contato.logkow,koc) 


#Vetor com os tipos de aplicação para cada um dos 5 compostos no data frame teste
tipos= c("soil","foliar","foliar","seed","soil")

#cálculo do risco para abelhas adultas
risco1= beerisk(data=teste,type=tipos)

#cálculo de risco para larvas
risco2= beerisk(data=teste,type=tipos, age="larvae")

#cálculo de risco para abelhas adultas usando dados emíricos de pólen e néctar
risco3= beerisk(data=teste,type=tipos, pollen=0.1, nectar=0.32)




